home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VRS-M16.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
4KB
|
196 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) STRING001 = "NO"
If (0 == 1) STRING001 = "YES"
EndFunc
:LABEL001
DOpen 1, PPEPath() + "VRS.DBF", 0
INTEGER006 = DRecCount(1) - 1
DTop 1
DGet 1, "BLT_PATH", STRING008
DClose 1
INTEGER007 = 0
STRING003 = PPEPath()
INTEGER004 = Len(STRING003)
STRING003 = Left(STRING003, INTEGER004 - 1)
FCreate 3, "SORT.BAT", 2, 0
FPutLn 3, "@ECHO OFF"
FPutLn 3, String(PPEPath()) + "VRSORT.COM /R " + String(PPEPath()) + String(PcbNode()) + ".TMP " + String(PPEPath()) + String(PcbNode()) + ".SRT"
FClose 3
FOpen 1, PPEPath() + String(PcbNode()) + ".TMP", 2, 0
Cls
If (Exist(STRING008)) Then
PrintLn "@X40┌─────────────────────────────────────────────────────────────────────────────@X4C┐@X0F"
PrintLn "@X40│ @X4EDeleting old VRS.BLT - Please wait... @X4C│@X0F"
PrintLn "@X40└@X4C─────────────────────────────────────────────────────────────────────────────┘@X0F"
Delete STRING008
Endif
PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
PrintLn "@X10│ @X1ECreating new VRS.BLT - Please wait... @X19│@X0F"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
FOpen 2, STRING008, 2, 0
DOpen 0, PPEPath() + "USER.DBF", 0
INTEGER006 = DRecCount(0) - 1
DTop 0
:LABEL002
If (DEof(0)) Goto LABEL004
DGet 0, "HANDLE", STRING002
DGet 0, "KILLS", INTEGER001
DGet 0, "EXP", INTEGER002
DSkip 0, 1
If (Left(STRING002, 10) == "USER ALIAS") Goto LABEL003
FPutPad 1, Trim(INTEGER002, " "), 15
FPutPad 1, Trim(STRING002, " "), 25
FPutPad 1, Trim(INTEGER001, " "), 6
FPutLn 1
:LABEL003
Goto LABEL002
:LABEL004
FClose 1
Shell 1, INTEGER003, "SORT.BAT", ""
Delete "SORT.BAT"
Delete PPEPath() + String(PcbNode()) + ".TMP"
FPutLn 2, "@CLS@"
FPutLn 2, " @X0C▄ ▄@X0F"
FPutLn 2, " @X0C ▀▄▀@X0C @X0Airtual Reality Soldier@X0F"
FPutLn 2, " @X04───────────────────────────@X0F"
FPutLn 2
FPutLn 2, " @X0AMost Experienced Players "
FPutLn 2
FPutLn 2, " @X0CExperience @X0BPlayer @X0EKills"
FPutLn 2, " @X05─────────────────────────────────────────────"
For INTEGER005 = 1 To INTEGER006
STRING004 = ReadLine(PPEPath() + String(PcbNode()) + ".SRT", INTEGER005)
STRING005 = Left(Trim(Left(STRING004, 15), " ") + "@X09······························", 19)
STRING005 = Left(STRING005, 19)
STRING006 = Left(Trim(Mid(STRING004, 16, 29), " ") + "@X09····························", 29)
STRING006 = Left(STRING006, 29)
STRING007 = Left(Trim(Right(STRING004, 6), " ") + "@X09····························", 9)
STRING007 = Left(STRING007, 9)
If (INTEGER007 == 0) FPutLn 2, "@POS:15@@X8C", STRING005, "@POS:30@@X8B", STRING006, "@POS:49@@X8E", STRING007, "@X0F"
If (INTEGER007 >= 1) FPutLn 2, "@POS:15@@X0C", STRING005, "@POS:30@@X0B", STRING006, "@POS:49@@X0E", STRING007
Inc INTEGER007
Next
FPutLn 2
FPutLn 2, "@POS:15@@X0EGenerated by VRS BLT Generator on @X0A", Date(), "@X0F"
Delete PPEPath() + String(PcbNode()) + ".SRT"
FClose 2
PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
PrintLn "@X10│ @X1ANew VRS.BLT created. Go play the game! @X19│@X0F"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 7 Goto
; 17 Let
; 9 PrintLn
; 8 If
; 1 FCreate
; 2 FOpen
; 3 FClose
; 16 FPutLn
; 3 FPutPad
; 4 Delete
; 1 Inc
; 1 Shell
; 1 EndFunc
; 2 DOpen
; 1 DClose
; 2 DTop
; 1 DSkip
; 4 DGet
;
;
; ■ Functions used :
;
; 21 +
; 3 -
; 4 ==
; 1 <
; 1 <=
; 3 >=
; 3 !
; 2 &&
; 1 ||
; 1 Len(
; 1 Mid()
; 9 Left()
; 1 Right()
; 6 Trim()
; 1 Date()
; 9 String()
; 10 PPEPath()
; 6 PcbNode()
; 1 ReadLine()
; 1 Exist()
; 1 DEof()
; 2 DRecCount()
;
;------------------------------------------------------------------------------
;
; Analysis flags : S
;
; S - Shell to DOS ■ 5
; This may be normal if the PPE need to execute an external command,
; but may be actually anything... nasty (formating HD, rebooting,...)
; or usefull (sorting, maintenance,...). Check!
; ■ Search for : SHELL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 1 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------